home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir43
/
qsrc_dsk.zip
/
MODEL
/
PRODUCT
/
STARTUP.PRG
< prev
Wrap
Text File
|
1991-12-11
|
3KB
|
98 lines
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ 07/03/1991 startup.prg 15:11:52 ║
* ║ ║
* ╟─────────────────────────────────────────────────────────╢
* ║ ║
* ║ Description: ║
* ║ This program was automatically generated by FoxApp. ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
* To run this application, type DO PRODUCT.APP
*
* Set up runtime environment
CREATE VIEW appview
PUSH MENU _msysmenu
SET SAFETY OFF
SAVE MACROS TO foxapp
SET SAFETY ON
SET TALK OFF
SET DELETED ON
SET ESCAPE OFF
SET STEP OFF
SET ECHO OFF
SET PROCEDURE TO appproc.prg
SET CURSOR ON
ON ERROR DO apperror WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR()
IF TYPE("BAILOUT") <> "U"
RELEASE bailout
ENDIF
IF TYPE("DBFNAME") <> "U"
RELEASE dbfname
ENDIF
IF TYPE("WIN_NAME") <> "U"
RELEASE win_name
ENDIF
IF TYPE("FILT_EXPR") <> "U"
RELEASE filt_expr
ENDIF
IF TYPE("SRCHTERM") <> "U"
RELEASE srchterm
ENDIF
PUBLIC bailout, dbfname, win_name, filt_expr, srchterm
m.bailout = .F.
m.dbfname = "D:\FP2\MODEL\PRODUCT.DBF" && database name
m.filt_expr = "" && filter expression, if any
m.srchterm = SPACE(60) && search term
DO APPMENU.PRG
m.stem = juststem(m.dbfname)
IF USED(m.stem)
SELECT (m.stem)
ELSE
SELECT 0
m.dbfname = LOCFILE(m.dbfname,'DBF','Please locate the '+JustStem(m.dbfname)+' database')
IF EMPTY(m.dbfname)
DO alert WITH "The "+m.stem+" database;could not be found."
DO cleanup
ELSE
USE (m.dbfname)
ENDIF
ENDIF
SET ORDER TO 1
IF RECCOUNT() = 0
APPEND BLANK
ENDIF
GOTO TOP
CLEAR
win_name = "PRODUCT"
DO WHILE !bailout
KEYBOARD "{PGDN}"
* Display the screen control panel
DO appctrl WITH MIN(18,SROWS()-3),3
* Display the main screen file
DO product1.spr
ENDDO
DO cleanup
RETURN
PROCEDURE cleanup
* Clean up after the application
SET PROCEDURE TO
CLOSE DATABASES
CLEAR WINDOWS
* Restore databases, indexes and environment
IF FILE("appview.vue")
SET VIEW TO appview
DELETE FILE appview.vue
ENDIF
IF FILE("foxapp.fky")
RESTORE MACROS FROM foxapp
DELETE FILE foxapp.fky
ENDIF
POP MENU _msysmenu
CLEAR PROGRAM
ON ERROR
SET SAFETY ON
RETURN